home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / AXREAD12.ZIP / READMAIL.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-08-03  |  1.7 KB  |  172 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     Int      INT001
  27.     Int      INT002
  28.     Declare  Procedure PROC001(Var Int INT003, Int INT004)
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     STRING001 = PPEPath() + "MAILBAR" + LangExt()
  33.     If (!Exist(STRING001)) STRING001 = PPEPath() + "MAILBAR"
  34.     FOpen 1, STRING001, 0, 0
  35.     FGet 1, STRING002
  36.     FGet 1, STRING003
  37.     FGet 1, STRING004
  38.     FGet 1, STRING005
  39.     FGet 1, STRING006
  40.     FGet 1, STRING001
  41.     FClose 1
  42.     If (Trim(Left(STRING001, 1), " ") == "Y") Then
  43.         BOOLEAN001 = 1
  44.     Else
  45.         BOOLEAN001 = 0
  46.     Endif
  47.     Print STRING002
  48.     INT001 = GetX()
  49.     If (BOOLEAN001) Then
  50.         Print STRING004 + STRING005
  51.         INT002 = 1
  52.     Else
  53.         Print STRING003 + STRING006
  54.         INT002 = 2
  55.     Endif
  56.     :LABEL001
  57.     STRING001 = Upper(TInkey(0))
  58.     Select Case (STRING001)
  59.         Case "6"
  60.             STRING001 = "RIGHT"
  61.         Case "4"
  62.             STRING001 = "LEFT"
  63.     End Select
  64.     If ((STRING001 == "LEFT") || (STRING001 == "RIGHT")) PROC001(INT002, INT001)
  65.     If (STRING001 == NoChar()) Then
  66.         INT002 = 1
  67.         PROC001(INT002, INT001)
  68.         STRING001 = Chr(13)
  69.     Endif
  70.     If (STRING001 == YesChar()) Then
  71.         INT002 = 2
  72.         PROC001(INT002, INT001)
  73.         STRING001 = Chr(13)
  74.     Endif
  75.     If (STRING001 == Chr(13)) Then
  76.         Newline
  77.         If (INT002 == 1) Then
  78.             Tokenize YesChar()
  79.             Call PPEPath() + "READ.PPE"
  80.         Endif
  81.         KbdStuff NoChar()
  82.         Delete PPEPath() + "REPLY" + String(PcbNode())
  83.         Delete TempPath() + "CALLED." + String(PcbNode())
  84.         End
  85.     Endif
  86.     Goto LABEL001
  87.     End
  88.  
  89. ;------------------------------------------------------------------------------
  90.  
  91.     Procedure PROC001(Var Int INT003, Int INT004)
  92.  
  93.     If (INT003 == 1) Then
  94.         Backup GetX() - INT004
  95.         Print STRING003 + STRING006
  96.         INT003 = 2
  97.     Else
  98.         Backup GetX() - INT004
  99.         Print STRING004, STRING005
  100.         INT003 = 1
  101.     Endif
  102.  
  103.     EndProc
  104.  
  105.  
  106. ;------------------------------------------------------------------------------
  107. ;
  108. ; Usage report (before postprocessing)
  109. ;
  110. ; ■ Statements used :
  111. ;
  112. ;    2       End
  113. ;    15      Goto 
  114. ;    16      Let 
  115. ;    5       Print 
  116. ;    11      If 
  117. ;    1       FOpen 
  118. ;    1       FClose 
  119. ;    6       FGet 
  120. ;    2       Delete 
  121. ;    1       Newline
  122. ;    1       Tokenize 
  123. ;    1       KbdStuff 
  124. ;    1       Call 
  125. ;    2       Backup 
  126. ;    1       EndProc
  127. ;
  128. ;
  129. ; ■ Functions used :
  130. ;
  131. ;    11      +
  132. ;    2       -
  133. ;    10      ==
  134. ;    10      !
  135. ;    1       ||
  136. ;    1       Upper()
  137. ;    1       Left()
  138. ;    3       Chr()
  139. ;    1       Trim()
  140. ;    2       NoChar()
  141. ;    2       YesChar()
  142. ;    2       String()
  143. ;    4       PPEPath()
  144. ;    2       PcbNode()
  145. ;    1       Exist()
  146. ;    1       LangExt()
  147. ;    3       GetX()
  148. ;    1       TempPath()
  149. ;    1       TInkey()
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;
  153. ; Analysis flags : C
  154. ;
  155. ; C - Call child PPE ■ 3
  156. ;     This is usually normal, but may be a tricky way to launch some
  157. ;     sysop-only commands.
  158. ;     ■ Search for : CALL
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Postprocessing report
  163. ;
  164. ;    0       For/Next
  165. ;    0       While/EndWhile
  166. ;    7       If/Then or If/Then/Else
  167. ;    1       Select Case
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;                 AEGiS Corp - Break the routines, code against the machines!
  171. ;------------------------------------------------------------------------------
  172.